home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ddutil12.arc / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-08-22  |  1KB  |  39 lines
  1. Program Demo_DDUtil_Package;
  2.  
  3. Uses Crt,DDUtils;
  4.  
  5. Var
  6.    Test1:Integer;
  7.    TChar:Char;
  8.  
  9. Begin
  10.    If Not DDActive Then
  11.    Begin
  12.       WriteLn('DoubleDOS not activated.  Aborting!');
  13.       Halt(0);
  14.    End;
  15.    DirectVideo := False; { Turn Off Direct Screen Writes For Multi-Tasker }
  16.    WriteLn('DoubleDOS detected.');
  17.    Test1 := Task_Number;
  18.    Case Task_Number Of
  19.         0:WriteLn('Top Memory Partition');
  20.         1:WriteLn('Bottom Memory Partition');
  21.    End;
  22.    WriteLn;
  23.    WriteLn('Giving up 110 milliseconds (for no reason).');
  24.    Give_Time(2);  { Give up 110 milliseconds }
  25.    WriteLn;
  26.    WriteLn('Current TimeSharing Is At: ');
  27.    Case Current_TimeShare Of
  28.         0:WriteLn('Visible Program Gets 70%, Invisible Gets 30% (Default)');
  29.         1:WriteLn('Visible Program Gets 50%, Invisible Gets 50% of Time.');
  30.         2:WriteLn('Visible Program Gets 30%, Invisible Gets 70% of Time.');
  31.         3:WriteLn('Top Program Gets 70%, Bottom Program Gets 30% of Time.');
  32.         4:WriteLn('Top Program Gets 30%, Bottom Program Gets 70% of Time.');
  33.    End;
  34.    WriteLn;
  35.    WriteLn('Press A Key To Switch Partitions.');
  36.    TChar := ReadKey;
  37.    Switch;
  38. End.
  39.